# load packages
library(countrycode)
library(tidyverse)
library(janitor)
library(wbstats)
# load AAA event data
AAAD_events <- read_csv("_Authoritarian Actions Abroad Database (online appendix).xlsx - Sheet1.csv")
library(countrycode)
library(tidyverse)
library(janitor)
library(wbstats)
source("~/Dropbox/Transnational repression/TR_project_share/TR_project_share/Sebastian_dataprep.R")
# Aggregate events at the country-year level
AAAD_events_cy_t <- AAAD_events %>%
group_by(country, target, year) %>%
summarise(events = length(ID)) %>%
ungroup() %>%
mutate(year = as.numeric(year)) %>%
drop_na(year)
# load packages
library(countrycode)
library(tidyverse)
library(janitor)
library(wbstats)
# load AAA event data
AAAD_events <- read_csv("_Authoritarian Actions Abroad Database (online appendix).xlsx - Sheet1.csv")
AAAD_events <- read_csv("_Authoritarian Actions Abroad Database (online appendix).xlsx - Sheet1.csv")
library(countrycode)
library(tidyverse)
library(janitor)
library(wbstats)
AAAD_events <- read_csv("_Authoritarian Actions Abroad Database (online appendix).xlsx - Sheet1.csv")
AAAD_events <- read_csv(TR_project_share/"_Authoritarian Actions Abroad Database (online appendix).xlsx - Sheet1.csv")
# load AAA event data
AAAD_events <- read_csv("TR_project_share"/"_Authoritarian Actions Abroad Database (online appendix).xlsx - Sheet1.csv")
AAAD_events <- read_csv("_Authoritarian Actions Abroad Database (online appendix).xlsx - Sheet1.csv")
View(data_final)
names(data_final)
AAAD_events <- read_excel("~/Dropbox/Transnational repression/TR_project_share/TR_project_share/_Authoritarian Actions Abroad Database (online appendix).xlsx - Sheet1.csv")
library(countrycode)
library(tidyverse)
library(janitor)
library(wbstats)
AAAD_events <- read_excel("~/Dropbox/Transnational repression/TR_project_share/TR_project_share/_Authoritarian Actions Abroad Database (online appendix).xlsx - Sheet1.csv")
library(countrycode)
library(tidyverse)
library(janitor)
library(wbstats)
